home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / l2tp_detection.nasl < prev    next >
Text File  |  2005-01-14  |  1KB  |  43 lines
  1. #
  2. #
  3. # This script is (C) 2003 Renaud Deraison
  4. #
  5. #
  6.  
  7. if (description)
  8. {
  9.  script_id(11387);
  10.  script_version ("$Revision: 1.1 $");
  11.  script_name(english:"L2TP detection");
  12.  desc["english"] = "
  13. This host is running a L2TP server - it's probably a VPN endpoint.
  14.  
  15. Risk factor : Low";
  16.  
  17.  script_description(english:desc["english"]);
  18.  script_summary(english:"Determine if a remote host is running a L2TP (VPN) service");
  19.  script_category(ACT_GATHER_INFO);
  20.  script_family(english:"Firewalls");
  21.  script_copyright(english:"This script is Copyright (C) 2003 Renaud Deraison");
  22.  exit(0);
  23. }
  24.  
  25.  
  26.  
  27.  
  28. req = raw_string(0xC8, 2, 0, 76, 0, 0, 0, 0,0,0,0,0,
  29.          0x80, 8, 0,0,0,0,0,1,
  30.          0x80, 8, 0,0,0,2,1,0,
  31.          0x80, 10,0,0,0,3,0,0,0,3,
  32.          0x80, 10,0,0,0,4,0,0,0,0,
  33.          0x80, 12,0,0,0,7) + "nessus" +
  34.       raw_string(0x80, 8, 0,0,0,8,42,42,
  35.                  0x80, 8, 0,0,0,10,0,4);
  36.          
  37. soc = open_sock_udp(1701);
  38. send(socket:soc, data:req);
  39. r = recv(socket:soc, length:1024);
  40. if(!r)exit(0);
  41. close(soc);
  42. if((ord(r[1]) & 0x0F) == 0x02)security_note(port:1701, proto:"udp");
  43.